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Meffne ATT_EHA UNFILE 
ftfefine DELIMITER* 



"TFHOBOX.TKP" 
•End of Telef ind Network MesugeVn" 



^include <string.h> 
^include <time.h> 
#inctude <stdio.h> 
^include <dos.h> 
tf Include "safari. h N 

void main(void) 

C 



FILE *infile,*outfUe; 

char txjffer(811 ,chr, timestrC6] ,datestr(91; 
char msg_nun(4]; 
int msg_ntin_opt = 0? 
char *ptr; 

int x f daY,rnonth,line*1,attmail=Q; 
time_t t; 

if ((infile « f open< ATT_EMAI LJF I L£ , "rt* ) ) == MULL) 
C 

printf("Xs does not exist\n*\ATT EMAIL FILE); 
wtCO); 

> 

if (Coutfile ■ fopefi( M tfmobox.S$$ w ( "wt M >) == HULL) 

C 

printf ("Can't open rFHOBOX.S$$\n«); 
exit(O); 

> 



V for(;;) 



/* get characters from .tmp file */ 

x « 0; 

do 

C 

chr =* fgetc( infile); 
if (feof( infile)) 
€ 

fclose( infile); 

felose(outfile); 

exit(O); 

> 

buffer tx++] = chr; 

> 

/* until end of line */ 

whUe (chr != *\n* 44 x 1= 80); 

bufferCx) = «\0«; /• terminate it V 

if (line == 1) 

C 

ptr = strchr<buffer,*)'); 

if (ptr-txiffer == 2) /» w« 3rd character */ 

C 

s»canf (buffer, "XC')3",rao_rxjo> ; 

ra»Q_nuni_opt =1; 

ptr^r 

> 

else 

ptr = buffer; 

if (*ptr " W *(ptrM> == <0') 
attmail = 1 ; 



if (attmail) 

C 

swttchd ine) 
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case 1 : 



5 > 

* else 



/* dates tr ~ mm/dd r timestr = hhtnra */ 

sscanf (datestr f "Xd/Xd ,, f &£nonth f idaY); V 
/* get year from pc */ 

t = time(NULL); 

fprintf (outf Ue f "Date: Xs" ( ctime<&t) ) ; 
brea<: 



case 2: 



fprintf (outf i le/'From: Xs",buf fer); 
break; 

case 3: 

fprintf (outfit e f "Subject: Xs M , buffer); 
fprintf (outf i le f "To: <Name here>\n") ; 
if (msg_num_opt ) 

fprintf (outf i I e r "Message #Xs\n'\msg_num); 

break; 

default: 

fprintf (outf ile f "%s", buffer); 
break ; 



if (line == 1) 



> 

else 



t a tiiwKMUU); 

fprintf (outf ile, M Oate: Xs w ,ctinw(&t>); 
fprintf (outf i le, M Frora: tfraobox\n"); 

fprintf (outf i le, "Subject: Telefind Network Message \n a ); 
fprintf (outf i I e, "To: <Man>e here>\n"); 
if (msg_nura_opt) 
< 

fprintf (outf ile, "Message #Xs\n* , ,msgj"ium); 
f printf (outf i le, M Xs M , buff er*3); 

> 

else 

fprintf (outf ile, H Zs M ,buf fer); 



fprintf (outf i I e, M Xs H , buffer); 



if (strcnp(buffer,OELlMlTER) « 0) 

C 

msg_num_opt = line = attmail = 0; 

> 

line 
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Author: 



MICHAEL P 
03/13/91 



CHKE, SR. 



Program: 
Purpose: 



SAFARI3.C 

TO EXTRACT MESSAGES FRCH A TELEFIMO PAGER 
VIA IN RS-232 PORT OH A PC 



Compi Ler: 
Memory Model : 



TURBO C++ 1.0 
SHALL 



^include <dos.h> 
#inctuae <stdio.h> 
# include <conio.h> 
# include <string.h> 
#include <stdlib.h> 
^include "safari. h M 



CONSTANTS 



#define OTRJII 0x01 

#define 0TRJ.O Oxfe 

#def ine RTSJII 0x02 

tfdefine RTSJ.0 Oxfd 

#^fine|JSRJII 0x20 

«dp i ne , jfjf MG_I N 0x40 

famine J9Jl7 0x80 

#definerSvE_TiaC S 

#$|Hne;^iVE_SEC 96 

#6^i i ne l #ELVE J5EC 220 

#o%f i ne HKk_F ILE "LOG" 

#o>iine tKTRO^STRING "Please standby, retrieving messages ..." 

/% FUNCTION PROTOTYPES */ 

int beep<yoi de- 
void bu4l§>ff<void>; 
void txtsjyon<void); 
vofd disdVf(void); 
vo|B distjo<void>; 
inntink(yoid); 
void print jnessageC void); 
int rxdata(void); 
int strobe(void); 
int strobe_data(void); 
unsigned tlcka(void); 
int timeout (unsigned start, int delay); 

/* VARIABLE DECLARATIONS V 

char pagerjxiffer(511l; 

int com_base,control_reg,status_reg, log_f lag; 
FILE *tog_file; 

/oid mainCint num_arg, char **args) 

C 

unsigned start; 
int restart f x; 

combase = 0x3f8; /* use com \ unless command line denotes otherwise 

/* get command line arguments */ 
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all coomand line arguments begin with a single and 
must be sepe rated by a single space between each other 
and the program name 



-1 Use COM port 1 

-2 Use COM port 2 

'f Log ail activity to a file named LOG 

if (num_arg > 1} 

for (x=1; x<nura_arg; x*-f) 

<: 

if (strcmp<args(xJ ,"-1") == 0) 
com_base = 0x3 f 8; 

if <stronp<args(x] ,"-2") « 0) 
con_base = 0x2f8; 

if Cstrcmp<argsCx],"-F") == 0) 
log_flag = 1; 



if (tog_flag> 

if <<log_file = fopen<LOG_FUE,"at M >) == NULL) 
printf ("Unable to open LOGXn* 1 ); 

"J: cqntrolj-eg = com_base ♦ 4; 
st8fcus_reg = corajbase ♦ 6; 

O cl;fscrO; 

y- 1 'is'J 

i;; i£J|link<) ss 0) /* is pager attached ? 

5"""' ;sa» ^ 

^ printf ("Please attach Message Receiver \n«); 

exit<0); 

f - ^ * 

PJ bu^ronO; /* start busy at logic high 

pi iO log_f lag) 

1™, IT: fprintf <log_f ile, "Initiating process \n M >; 

"t? prxmf <»Xs\n", INTRo'sTRING); 

^ diS0n(); /* push display button V 

sle^p<2); 

do 

C 

start = ticksO; 
restart = 0; 
do 

C 

if (beepQ) 

< 

print jnessageO; 
restart = 1; 
start -= TUELVE^SEC; 
break; 

> 

> 

/* hold display button for 12 seconds V 
whileC! timeout* start, TUELVE_SEC>); 

> 

whi le(restart); 

disoffO; /* release the display button */ 

if <log_flag> 

C 

fprintf (log_f t le, M Process Complete \n w ); 
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f close* log_f i* le); 

> 

) 

/* pager beep */ 

int beep(void) 

C 

/* accesses the RI line via the Status Register 

which is activated when the pager Deeos */ 

unsigned start; 

start = ticksC); 

while ( ! timeout(start f f IVEJ'IOC)) 
C 

if <(inportb< status _reg) & RINGJN) == 0 ) 
return < 1 ) ; 

> 

return(O); 

> 

/* busyon & busyoff toggle the OTR line via the 

E3 as. Control Register to strooe in data from the oager 

void btisyof f (void) 

;TJ In outportb< control _reg, inportb< control _reg) | DTRJU); 

in 

^vbid JbusyonXvoid) 

-M h z, 

E ^ outportb< control _reg, inportb( control jr eg) & 0TRJ.O); 

U * 

li* {tj dison & disoff toggle the RTS line via the Control Register 

y H to simulate the pressing of the display button on the pager 

~fio id &Json(void) 

outportb<control_reg, inportto< control _reg> | RTSJU); 

> 

void disoff(void) 

C 

outportb(control_reg, inportb(control_reg) & RTSJ.O); 

> 

int I ink(void) 
C 

/* accesses the CD line via the Status Register 

which is logic high when pager is connected V 

if (( mportb(status_reg) & CD_MI) == 0) 

return(O); 
return( 1 ) ; 

> 

void pnnt_message<void) 

( 

FILE •file? 

unsigned start; 

int x,y=0, z=0,chr,bi t; 




busyoffO; /* ready to accept pager data */ 

/* read until end code received */ 

while (chr != 3) 

( 

chr = 0; 

start = ticfcsO; 

/* wait for start bit */ 



do 

C 

bit = strobeO; 
if (bit == 0) 
break; 

> 

while <!t1meout(start,FIVE_SEC3>; 

if (bit) 

C 

if (log_flag) 

fprintf (logoff I e, "Transmission Error, recheck connect i on Vn") 
D disoffC); 
^ "=£ exit(0>; 



s L 1 



/* strobe out 8 bit data 

«^ for (x=1 ; x<9; x++) 

Q < 

S *J chr <« 1; 

chr bit = strobe dataO; 

> 

/* clear out stop bits 

for <x=1;x<3;x*+) 

•P < 

: 5 strobe _data<); 

> 

/* extract start and end codes from message 



pager signon 02, IB, 00, 33 

pager signoff 03 */ 

if <(y > 3) M (chr » = 3)) 

C 

/* pager characters 96 and 97 are converted to 

OxFA and OxFB to display on pager */ 

if (chr == Oxfa) /* convert to CR */ 

chr = '\n»; 

if (chr Oxfb) /* convert to TAB */ 

chr = 0x09; 



pagerJxjfferU] = chr; 

> 

y 



pagerjxjfferlz) = '\0»; /* null terminate V 

busyonO; /* finished receiving data */ 
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if <log_flag) 

f pr i nt f < I og_f it e , "XsVn* 1 , pager_buf f er ) ; 

if ((file * f open( ATT_EKAI L_F I LE # "at*)) = NULL) 

fprintf (tog_f ile, "Unable to open T FMOBOX . THP\n M ) ; 

else 

i 

fprintf (ft le, "Xs Vn" , pagerjxif f er > ; 
fprintf <file,"Xs M , DELIMITER); 
fclosetf ile); 

> 

start = ticksO; 

whi I e( I t imeoutC start , f I VE_SEC) ) 

i 

/* wait for erase beep V 
if (beepO) break; 

> 

steep<1); /* wait one more second */ 

J 

int rxdata(void) 
C 

/* accesses the DSR line via the Status Register 

O ch returns the bits value */ 

Qf <inportb<status_reg) & OSRJU) 
*P return* 0); 

j>eturn< 1 ) ; 

Ij3 strobe<void) 
s ^int bit; 

^busyonC ) ; 

ydelayd); 
^busyoffO; 
5delay<4); 
tbit = rxdataO; 
Mreturn<bit); 



int strobe_data(void) 
i 

int bit; 

bus yon ( ) ; 
delay<2); 
bit - rxdataO; 
busyoffC); 
delay<1); 
return(bit); 

) 

unsigned ticks(void) 

C 

/* returns timer ticks (approx. 18.2/sec) 

using only lower registers */ 

union REGS in r out; 

in.x.ax = 0x0; 
int66<0x1a,£in,£out); 
returns out .x.dx) ; 
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timeout (unsigned start, int delay) 

/* used for timing events of up to approx. 1 hour. 

used in conjunction w/ticks() */ 

unsigned current; 

current = tieksO; 

if (start <= current && (start *• delay) < current) 
return( 1 ) ; 

if (start > current && (start - 65535 + delay) < current) 

return( 1 ) ; 
return(O); 
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# * 



/* mark the end of the command line you built, so you can add enair.g 

delimiter */ 
sys_ command ( i 1 = NULL; 

/* add the ending quote for the users message so shell wont 

interepert special characters */ 
strcat (sys_command, "V ") ; 
/* execute command you built */ 
system <sys_command> ; 

printf ("sending message: %s\n", sys_ command) ; 

) 

else ( 

if (strlen(mesg) 0 ) { 
return (0) ; 

1 

/* print error for invalid message length */ 

printf ("telemail error: invalid message length: %s\n", mesg) ; 
return (0) ; 

) 

return (i) ; 



• function: getline (hold-buffer, input-file-pointer) 
arguments: pointer to buffer where line read will be heald, 

* file pointer to input file 

description: reads 1 line of text from the input line and stores the 

* line read into the buffer passed. 

• returns: -1 if EOF or number of characters read in 
* 

getline (buff, fp) 
char *buff; 
FILE *fp; 
< 

int ch, cnt; 

/* keep on reading characetrs from file so long as end of file not 

reached or char is the end of line * / 
fortcnt « 0; < (ch - fgetc(fp)) !- EOF) u ch !- ' \n' ; cnt++) ( 
/• MOD BY OT 11/29/90 convert tab to space */ 
/* convert tabs to single space "/ 
if(ch — 9) { 
ch - ' 

I 

/* MOD BY OT 11/29/90 dont allow control char •/ 
/* only load in ascii characters */ 
if (isprint (ch) !- 0) { 
buff (cnt) * ch; 

) 

else { 

/* turn control characters to spaces */ 
buff (cnt ) - ' ' ; 

) 

. ) 

/* marx the end of the buffer you built */ 
buff (cnt I - '\0'; 
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function: send_mesg (message-pointer) 

arguments: pointer to text message (capcode, text) to be sent 
description: takes passed message text makes sure the first 8 positions 
are numeric (capcode) . it builds and executes the network 
send command (netsend.sh) to sedn the message passed, 
returns: 0 if not sent otherwise the number of characters sent out 



int send_mesg(mesg) 
char *mesg; 

{ 

char sys_command[700] ; 
int i; 
int ch; 

char •mesg — ptr; 

/* left justify the message passed to remove leading spaces */ 
strl just (mesg r 512) ; 

/• trim off trailing blank spaces from the message •/ 
strtrim(mesg) ; 



/* make sure you have a capcode at least */ 
if (strlen cmesg) > 6) ( 

/* start to build the command to be executed to send message retreieved 

from the mail box •/ 
strcpy <sys_command, "netsend.sh ") ; 

/* loop while still more characters in the message */ 
for(mesg_ptr • raesg, i - 11; *mesg_ptr !» NULL; mesg^ptr**) ( 

/* make sure the first 8 positions of the message are numeric ■/ 
ifUi < 19) 44 <*mesg_ptr < '0' II *mesg_ptr > ' 9' ) ) { 

printf ("teiemail error: invalid capcode: %s\n", mesg) ; 

return 0; 

) 



/•is the user didsnt seperate capcode & message then insert a 

space into the command */ 
if(i — 19 44 'mesgptr ! — ' ') { 

sys_command(19) » ' '; 

i - 20; 

} 

/* enclose the users message with ' so shell wont interpet 

special characters */ 
if(i — 20) { 

sys_command(20 J « 'V'; 

i - 21; 



/* put the character from the message onto to the 

command to be executed**/ 
sys_command(iJ = *mesgj)tr; 



^ continue; 

if (srr™^5 r ?2 d with c *« following string -/ 
if(srrnc^,buff -contenr-Length:-, 15) — 01 ( 

in_header - 0; 

ilJ:iy, T the oId ra **sage since this is a new one */ 
memset (mesg, NULL, MAXMSGLEN) ; ' 
continue; 

) 

'* iSd'X ^ n ^rS.ts"g2°"/ r " dln9 in nOC PW ° f th « «« »"*er 
if <in_header ■» 0) { 

strl just (buff, 512); 

«rtrim (buff) ; 

i^^WETiffii^ ^ m ° rc the length •/ 

^ strcat(raesg) buff); 

) 

) /* end of read line while */ 

«nd e m«^! la " m ««9« in the file -/ 
s«na_mesg (mesg) ; 
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